home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -screenplay- / hd_installers / kult / install < prev    next >
Text File  |  1998-06-18  |  3KB  |  147 lines
  1. ;------------------------------------------------------------
  2. ; General installscript for DOS-GAMES with patcher, by Harry
  3. ; Adapted from a script by Bert Jahn
  4. ;------------------------------------------------------------
  5. ;****************************
  6.  
  7. (set #readme-file "README")        ;name of readme file
  8. (set #CI_drive "Billiard:")        ;default source drive
  9. (set #cleanup "")            ;files to delete after install
  10. (set #paramver 1)            ;parameterversion:1-org, 2-rerelease
  11.  
  12. ;****************************
  13.  
  14. (if
  15.   (exists #readme-file)
  16.   (if 
  17.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  18.     ("")
  19.     (run ("SYS:Utilities/More %s" #readme-file))
  20.   )
  21. )
  22.  
  23. (set @default-dest
  24.   (askdir
  25.     (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  26.     (help @askdir-help)
  27.     (default @default-dest)
  28.     (disk)
  29.   )
  30. )
  31. (set #dest (tackon @default-dest @app-name))
  32. (if
  33.   (exists #dest)
  34.   (
  35.     (set #choice
  36.       (askbool
  37.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted ?" #dest))
  38.         (default 1)
  39.         (choices "Delete" "Skip")
  40.         (help @askbool-help)
  41.       )
  42.     )
  43.     (if
  44.       (= #choice 1)
  45.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  46.     )
  47.   )
  48. )
  49. (makedir #dest
  50.   (help @makedir-help)
  51.   (infos)
  52. )
  53.  
  54. (copyfiles
  55.   (help @copyfiles-help)
  56.   (source (""))
  57.   (dest #dest)
  58.   (pattern ("#?.prefs"))
  59. )
  60.  
  61. (copyfiles
  62.   (help @copyfiles-help)
  63.   (source ("%s.inf" @app-name ))
  64.   (newname ("%s.info" @app-name ))
  65.   (dest #dest)
  66. )
  67.  
  68. (copyfiles
  69.   (help @copyfiles-help)
  70.   (source ("%s_st" @app-name ))
  71.   (newname ("%s" @app-name ))
  72.   (dest #dest)
  73. )
  74.  
  75. (copyfiles
  76.   (help @copyfiles-help)
  77.   (source ("kultst"))
  78.   (dest #dest)
  79. )
  80.  
  81. (copyfiles
  82.   (help @copyfiles-help)
  83.   (source ("kult.solution.lha"))
  84.   (dest #dest)
  85. )
  86.  
  87. (copyfiles
  88.   (help @copyfiles-help)
  89.   (source #readme-file)
  90.   (dest #dest)
  91. )
  92.  
  93. ;now copying the disk...
  94. (message "Please insert your KULT disk in any drive.")
  95. (if
  96.   (= (exists "Kult:" (noreq)) 2)
  97.   (
  98.     (set #CI_drive "Kult:")
  99.     (set #paramver 2)
  100.   )
  101. )
  102. (if
  103.   (= (exists #CI_drive (noreq)) 2)
  104.   ("")
  105.   (
  106.     (abort "Wrong disk. Contact Author.")
  107.   )
  108. )
  109.  
  110. (copyfiles
  111.   (help @copyfiles-help)
  112.   (source ("%s" #CI_drive))
  113.   (dest #dest)
  114.   (pattern ("#?.BIN"))
  115. )
  116. (copyfiles
  117.   (help @copyfiles-help)
  118.   (source ("%srunback" #CI_drive))
  119.   (dest #dest)
  120. )
  121.  
  122.  
  123. (copyfiles
  124.   (help @copyfiles-help)
  125.   (source ("BRUIT.BIN"))
  126.   (dest #dest)
  127. )
  128.  
  129. (copyfiles
  130.   (help @copyfiles-help)
  131.   (source ("kult.prg"))
  132.   (dest #dest)
  133. )
  134.  
  135. (if
  136.   (= #paramver 2)
  137.   (
  138.     (run ("Assign \"KLT:\" \"%s\"" #dest))
  139.     (rename "KLT:AMICD.BIN" "KLT:DESCD.BIN")
  140.     (rename "KLT:AMICE.BIN" "KLT:DESCE.BIN")
  141.     (rename "KLT:AMICF.BIN" "KLT:DESCF.BIN")
  142.     (run ("Assign \"KLT:\" Remove"))
  143.   )
  144. )
  145.  
  146. (exit)
  147.